home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / misc / font-nostalgia.sty < prev    next >
Text File  |  1992-05-26  |  2KB  |  52 lines
  1. %%% ====================================================================
  2. %%%  @LaTeX-style-file{
  3. %%%     author          = "Mario Wolczko",
  4. %%%     version         = "2",
  5. %%%     date            = "21 May 1992",
  6. %%%     time            = "20:55:58 BST",
  7. %%%     filename        = "font-nostalgia.sty",
  8. %%%     address         = "Dept of Computer Science
  9. %%%                        The University of Manchester
  10. %%%                        Oxford Road
  11. %%%                        Manchester M13 9PL
  12. %%%                        UK",
  13. %%%     telephone       = "+44-61-275-6146",
  14. %%%     FAX             = "+44-61-275-6236",
  15. %%%     checksum        = "47224 51 137 1962",
  16. %%%     email           = "mario@cs.man.ac.uk (Internet)",
  17. %%%     codetable       = "ISO/ASCII",
  18. %%%     keywords        = "LaTeX, NFSS, fonts",
  19. %%%     supported       = "yes",
  20. %%%     docstring       = "For New Font Selection Scheme users --
  21. %%%     provides commands with the pre-NFSS meanings of \rm, \bf, etc.",
  22. %%%  }
  23. %%% ====================================================================
  24.  
  25. \@ifundefined{extract@font}
  26.      {\let\oldrm\rm
  27.       \let\oldbf\bf
  28.       \let\oldtt\tt
  29.       \let\oldsf\sf
  30.       \let\oldsl\sl
  31.       \let\oldit\it
  32.       \let\oldsc\sc}
  33.      {\newcommand\oldrm{\reset@font}
  34.       \newcommand\oldtt{\family\ttdefault\series\default@series
  35.     \shape{n}\selectfont}
  36.       \newcommand\oldsf{\family\sfdefault\series\default@series
  37.     \shape{n}\selectfont}
  38.       \def\@psfmtname{pslplain}
  39.       \ifx\fmtname\@psfmtname % pslatex
  40.            \newcommand\oldbf{\family\rmdefault\series{b}%
  41.       \shape{n}\selectfont}
  42.       \else
  43.           \newcommand\oldbf{\family\rmdefault\series{bx}%
  44.       \shape{n}\selectfont}
  45.       \fi
  46.       \newcommand\oldit{\family\rmdefault\series\default@series
  47.     \shape{it}\selectfont}
  48.       \newcommand\oldsl{\family\rmdefault\series\default@series
  49.     \shape{sl}\selectfont}
  50.       \newcommand\oldsc{\family\rmdefault\series\default@series
  51.     \shape{sc}\selectfont}}
  52.